home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TK-LOGIN.ZIP / LOGIN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-05-15  |  4KB  |  259 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     Integer  INTEGER007
  27.     Integer  INTEGER008
  28.     Integer  INTEGER009
  29.     Integer  INTEGER010
  30.     Integer  INTEGER011
  31.     Integer  INTEGER012
  32.     Integer  INTEGER013
  33.     Integer  INTEGER014
  34.     String   STRING001
  35.     String   STRING002
  36.     String   STRING003
  37.     String   STRING004
  38.     String   STRING005
  39.     String   STRING006
  40.     String   STRING007
  41.     String   STRING008
  42.     String   STRING009
  43.     String   STRING010
  44.     String   STRING011
  45.     Declare  Procedure PROC001()
  46.  
  47. ;------------------------------------------------------------------------------
  48.  
  49.     GetToken INTEGER001
  50.     FOpen 1, PPEPath() + "LOGIN.CNF", 2, 0
  51.     FGet 1, INTEGER002
  52.     FGet 1, INTEGER003
  53.     FGet 1, INTEGER004
  54.     FGet 1, INTEGER005
  55.     FGet 1, INTEGER006
  56.     FGet 1, INTEGER009
  57.     FGet 1, INTEGER010
  58.     FGet 1, INTEGER011
  59.     FGet 1, STRING001
  60.     FGet 1, INTEGER012
  61.     FGet 1, INTEGER013
  62.     FGet 1, INTEGER014
  63.     FGet 1, STRING004
  64.     FGet 1, STRING005
  65.     FGet 1, STRING002
  66.     FGet 1, STRING007
  67.     FGet 1, STRING006
  68.     FGet 1, STRING008
  69.     FGet 1, STRING009
  70.     FGet 1, STRING011
  71.     FClose 1
  72.     If (INTEGER001 == 76) Then
  73.         AnsiPos INTEGER002, INTEGER003
  74.         Print STRING008
  75.         Delay INTEGER012
  76.         AnsiPos INTEGER002, INTEGER003
  77.         Print STRING009
  78.     Endif
  79.     If (INTEGER001 == 259) Then
  80.         Cls
  81.         DispFile PPEPath() + "LOGIN.PCB", 0
  82.         AnsiPos INTEGER002, INTEGER003
  83.         Print STRING007
  84.         AnsiPos INTEGER004, INTEGER005
  85.     Endif
  86.     If (INTEGER001 == 260) Then
  87.         KbdStuff Chr(13)
  88.     Endif
  89.     If (INTEGER001 == 148) Then
  90.         GetUser
  91.         AnsiPos INTEGER010, INTEGER011
  92.         Print STRING001 + "@CITY@"
  93.         AnsiPos INTEGER006, INTEGER009
  94.         Print "            "
  95.         If (OnLocal() == 0) STRING011 = "N"
  96.         STRING010 = U_Pwd
  97.         If (STRING011 == "N") Then
  98.             AnsiPos INTEGER002, INTEGER003
  99.             Print STRING009
  100.             AnsiPos INTEGER002, INTEGER003
  101.             Print STRING006
  102.             SPrintLn "H.--[ Local Window ]-------------."
  103.             SPrintLn "| Password:                     |"
  104.             SPrintLn "| Usr inpt:                     |"
  105.             SPrintLn "| Security:                     |"
  106.             SPrintLn "`-------------------------------'"
  107.             SPrint "3H" + U_Pwd
  108.             SPrint "3H" + String(U_Sec)
  109.             AnsiPos INTEGER006, INTEGER009
  110.             PROC001()
  111.         Endif
  112.         KbdStuff STRING010
  113.     Endif
  114.     If (INTEGER001 == 92) Then
  115.         AnsiPos INTEGER002, INTEGER003
  116.         Print STRING009
  117.         AnsiPos INTEGER002, INTEGER003
  118.         Print STRING002
  119.         Delay INTEGER012
  120.         AnsiPos INTEGER002, INTEGER003
  121.         Print STRING009
  122.     Endif
  123.     If (INTEGER001 == 53) Then
  124.         AnsiPos INTEGER013, INTEGER014
  125.         Print STRING005
  126.         BOOLEAN001 = 1
  127.         While (STRING003 <> Chr(13)) Do
  128.             STRING003 = ""
  129.             While (STRING003 == "") Do
  130.                 STRING003 = Inkey()
  131.             EndWhile
  132.             AnsiPos INTEGER013, INTEGER014
  133.             If (STRING003 == "RIGHT") Print STRING004
  134.             If (STRING003 == "LEFT") Print STRING005
  135.             If (STRING003 == "LEFT") BOOLEAN001 = 1
  136.             If (STRING003 == "RIGHT") BOOLEAN001 = 0
  137.         EndWhile
  138.         If (BOOLEAN001 == 1) KbdStuff "C" + Chr(13)
  139.         If (BOOLEAN001 == 0) KbdStuff "R" + Chr(13)
  140.     Endif
  141.     End
  142.  
  143. ;------------------------------------------------------------------------------
  144.  
  145.     Procedure PROC001()
  146.  
  147.     Integer  INTEGER015
  148.     Integer  INTEGER016
  149.     String   STRING012
  150.  
  151.     STRING010 = ""
  152.     INTEGER015 = GetX()
  153.     While (STRING012 <> Chr(13)) Do
  154.         STRING012 = ""
  155.         While (STRING012 == "") Do
  156.             STRING012 = Upper(Inkey())
  157.             If (Len(STRING012) > 1) STRING012 = ""
  158.             If ((INTEGER016 == 0) && (STRING012 == Chr(13))) STRING012 = ""
  159.             If (INTEGER016 == 12) If (STRING012 <> Chr(8)) If (STRING012 <> Chr(13)) STRING012 = ""
  160.         EndWhile
  161.         If ((STRING012 == Chr(8)) && (INTEGER016 <> 0)) Then
  162.             Dec INTEGER016
  163.             STRING010 = Left(STRING010, Len(STRING010) - 1)
  164.         ElseIf ((STRING012 <> Chr(13)) && (STRING012 <> Chr(8))) Then
  165.             STRING010 = STRING010 + STRING012
  166.             Inc INTEGER016
  167.         Endif
  168.         If (STRING012 == Chr(8)) Then
  169.             If (GetX() > INTEGER015) Then
  170.                 INTEGER007 = GetX()
  171.                 INTEGER008 = GetY()
  172.                 SPrint "3H" + STRING010 + " "
  173.                 SPrint "" + String(INTEGER008) + ";" + String(INTEGER007) + "H"
  174.                 Print Chr(8) + " " + Chr(8)
  175.             Endif
  176.             Continue
  177.         Endif
  178.         If (STRING012 <> Chr(13)) Then
  179.             INTEGER007 = GetX()
  180.             INTEGER008 = GetY()
  181.             SPrint "3H" + STRING010
  182.             SPrint "" + String(INTEGER008) + ";" + String(INTEGER007) + "H"
  183.             Print "."
  184.         Endif
  185.     EndWhile
  186.  
  187.     EndProc
  188.  
  189.  
  190. ;------------------------------------------------------------------------------
  191. ;
  192. ; Usage report (before postprocessing)
  193. ;
  194. ; ■ Statements used :
  195. ;
  196. ;    1       End
  197. ;    1       Cls
  198. ;    22      Goto 
  199. ;    20      Let 
  200. ;    15      Print 
  201. ;    28      If 
  202. ;    1       DispFile 
  203. ;    1       FOpen 
  204. ;    1       FClose 
  205. ;    20      FGet 
  206. ;    1       GetUser
  207. ;    2       Delay 
  208. ;    1       Inc 
  209. ;    1       Dec 
  210. ;    1       GetToken 
  211. ;    4       KbdStuff 
  212. ;    14      AnsiPos 
  213. ;    6       SPrint 
  214. ;    5       SPrintLn 
  215. ;    1       EndProc
  216. ;
  217. ;
  218. ; ■ Functions used :
  219. ;
  220. ;    21      +
  221. ;    1       -
  222. ;    21      ==
  223. ;    8       <>
  224. ;    2       >
  225. ;    16      !
  226. ;    3       &&
  227. ;    2       Len(
  228. ;    1       Upper()
  229. ;    1       Left()
  230. ;    15      Chr()
  231. ;    2       Inkey()
  232. ;    5       String()
  233. ;    2       PPEPath()
  234. ;    1       OnLocal()
  235. ;    4       GetX()
  236. ;    2       GetY()
  237. ;
  238. ;------------------------------------------------------------------------------
  239. ;
  240. ; Analysis flags : H
  241. ;
  242. ; H - Read Password or Password History ■ 5
  243. ;     Program is reading the user's password or last password history
  244. ;     This may be ok for a password manager, but it is very suspect. Check!
  245. ;     ■ Search for : U_PWDHIST, U_PWD
  246. ;
  247. ;------------------------------------------------------------------------------
  248. ;
  249. ; Postprocessing report
  250. ;
  251. ;    0       For/Next
  252. ;    4       While/EndWhile
  253. ;    12      If/Then or If/Then/Else
  254. ;    0       Select Case
  255. ;
  256. ;------------------------------------------------------------------------------
  257. ;                 AEGiS Corp - Break the routines, code against the machines!
  258. ;------------------------------------------------------------------------------
  259.